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H 1 001 MODULE RM3POSKEY (LANGUAGE (BLISS32) , : 
3 ¢ 38 o {DENT = eos ebboe 3 
3 = ; 
5 4 004 1 BEGIN $ 
3 5 0005 1! 3 
4 $ 8008 : emanate Ea al ina anata | P 
3 ' * 3 
3 8 0008 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ; 
; 9 0009 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . ; 
; 19 Baty : i* ALL RIGHTS RESERVED. * 3 
; ! * 3 
; 1g pote 1 !'* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * . 
$ 1 01 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * . 
; 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
: 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
4 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
; i Bate ! e TRANSFERRED. ‘ 3 
3 'e * 3 
: 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
; $y 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
; $3 oo 1 ; - CORPORATION. * 3 
3 ! ® s 
: i 00 - 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
; ¢ Bose : i SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 3 
3 ! ® 3 
3; a 0026 1 !* * 3 
4 $f sf 34 : LRA EERE RARER AAA EAAAEA EAA A AAA A AAA AAAAEREEAAAEEE ‘ 
; <9 0029 1 1+ F 
; 0 0030 1! 3 
: Hs ott ' : FACILITY: RMS32 index sequential file organization : 
; 3§ 0033 1 ' ABSTRACT: : 
; site: 1! This module positions to a record by key value. : 
; 5 0035 1! 3 
3 0036 1! 3 
; 7 0037 1 ! ENVIRONMENT: : 
§ 8 0038 1! $ 
; 9 0039 1! VAX/VMS Operating System : 
; & 0040 1! : 
: 41 0041 1 !-- PY 
:. § 0042 1 F 
; 6 0045 1! 3 
3 rf bee : : AUTHOR: Todd M. Katz RE-CREATION DATE: 17-Jan-83 : 
: 46 0046 1 i ; 
3; «647 0047 1 ! MODIFIED BY: 3 
; ¢ 0048 1! 3 
; «649 049 1! v03-007 TSK0001 Tamar Ee tebousty 15-Jun-1983 3 
; 29 Bay : Change addressing mode for RMSRU_RECLAIM to long relative. | : 
; 52 5 1 v03-006 MCNO002 _ Maria del C. Nasr 22-Mar-1983 3 
; 27 bez : More changes in the Linkages : 
; 2¢ 055 1! v03-005 MCNO001 _. Maria del C. Nasr 24-F eb-1983 F 
$ 9 Bpe$ : Reorganize Linkages : 


————— 
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5 28 035 } } v03-004 TMK0003 Todd M 17-Jan-1983 
; o0 : : : Recovery Unit Journalling and RU ROLLBACK Recovery of ISA 
: ' es 

3 6¢ ¢ 1! 

3 6 1 !eeeee 

; 664 064 1 

4 65 Opee 1 LIBRARY ‘RMSLIB:RMS'; 

>; 66 Bo8 1 

3 24 , : REQUIRE "RMSSRC:RMSIDXDEF'; 

3 4 \ : ! } Define default PSECTS for code. 

s 71 135 1 PSECT 

HY ue 9 § 1 CODE = RMSRMS3(PSECT_ATTR), 

s 6, ot 3 : PLIT = RMSRMSS(PSECT_ATTR); 

3; 0139 1 ! Linkages. 

: re 0140 1! 

.-— 7 0141 1 LINKAGE 

ck oe She 1 L_RABREG 67, 

3 79 014 1 L-PRESERVE1; 

; 80 0144 1 

‘i Bee 1 ! External Routines. 

; 8 108 1! 

3 8 014 1 EXTERNAL ROUTINE 

; 84 0148 1 RMSCSEARCH_TREE : sgn}: $7, 

3 85 0149 1 RMSGE TNEXT_REC : RLSRABREG 67, 

3 86 0150 1 RMSRLSBK : RLSPRESERVE). 

3 87 0151 1 RASRU RECLAIM : RLSRABREG., 67 ADDRESSING_MODE( LONG_RELATIVE ), 
3 88 0152 #1 RMSSEARCH_SIDR : RLSRABREG_67; 


Re-write the reutines with - this module adding support ny | 
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-1984 01:55: AX-11 Bliss-32 V4.0-74 
v04 - ats vi 04:33:83 LRMS.SRe RM3POSKEY .B32; 
30 GLOBAL ROUTINE RMSPOS_KEY : RLSRABREG_67 = 
3 hed 
34 i FUNCTIONAL DESCRIPTION: 


This routine is responsible for positioning to the first non-deleted 
primary data record that matches the key in keybuffer 2 according to 
a well-defined set of search characterictics. 


If RMS encounters a record that is marked RU_DELETE and the Recovery 
Unit in which the record was deleted it still active, then RMS returns 
tnie record as the non-deleted pr gery data record and lets a el 
level routine decide what io du. If the Recovery Unit in which the 
record was deleted has successfully terminated, then RMS will continue 
its search for a non-deleted primary data record after deleting this 
RU_DELETEd record (the ieiter if it has write access to the file). 


If RMS encounters a record that is marked RU_UPDATE and is in a special 
format then RMS will return this record as the non-deleted primary data 
record after heey | it. The reformatting is done if RMS has write 
access to the fiie, and the Recovery Unit in which it was updated has 
has successfully terminated. 


' 
) 
{ 
' 
' 
1 
' 
' 
! 
' 
' 
' 
' 
' 
' 
i 
' 
4 
] 
{ CALLING SEQUENCE: 
RMSPOS_KEY() 
i INPUT PARAMETERS: 
; NONE 

i 
' 
' 
1 
' 
4 
' 
' 
' 
i) 
' 
' 
] 
' 
' 
' 
' 
' 
' 
‘ 
] 
' 
] 
] 
+ 
' 


i IMPLICIT INPUTS: 
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IDX_DFN - address of current index descriptor 
IDX$B_KEYREF - key of reference 
FAR - address of IFAB 
IFBSV_WRTACC - if set, file is open for write access 
i QUTPUT PARAMETERS: 
: NONE 
g i IMPLICIT OUTPUTS: 
IRAB . 
5 IRB$L_CURBDB - address of BDB for current primary data bucket 
36 IRBSW_RFA_ID - ID of current record (primary only) 
37 IRBS$L_RFA_VBN - VBN of current record 
$ IRB$B_STOPLEVEL - 0 
ry REC_ADDR - address of primary data record 
4@ i ROUTINE VALUE: 
44 RNF - unable to position to a primary data record by hey value. 
a 4 suc - successfully positioned to a primary data record by key value. 


— , 
RM3POSKEY 8.48 -1984 01:55: AX-11 Bliss-32 V4.0-74 | 
VOLe 000 12286871382 ee CAMS .SRC RM POSKEY Boe a (23 


H SIDE EFFECTS: 


; On success, REC_ADDR points to the non-deleted primary data record 

: and the BDB of the pr sory data bucket maybe found in IRBSL_CURBDB. 
; On failures, all accessed buckets are released. 

; If RU_DELETEd records are encountered, they might have been deleted. 

If RU_UPDATEd records are encountered, they might have been reformatted. 
‘ 


BEGIN 
BUILTIN 
AP; 


EXTERNAL REGISTER 


R_IDX_BFN STR, 
R-REC-ADDR_STR; 


! Initialize several variables, and then position to the (primary or 
secondary) data record by key vaiue. 


{RABCIRBS$B_STOPLEVEL) = 0; 

IRABLIRBSL_CURBDB] = 0; 

IRABLIRBSW_SAVE_POS] = 0; 

RETURN_ON_ERROR (RMSCSEARCH_TREE()); 

! If RMS is to position by primary key, then position to the first 

! non-deleted primary data record whose primary key matches the search key 
according to the characteristics of the search. 


IF _.IDX_DFNCIDXSB_KEYREF] EQLU 0 
THEN 


BEGIN 
WHILE (.REC_ADDRCIRC$Y “DELETED 
OR 


.REC_ADDRCIRC$V_RU_DELETEJ) 
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0909 09 0909 09 SIN N SINI NINN NIOAAAAAAOAO D FP 
Me) at ert PP Pe PI BPS SS Se OS A Sy Se tee ee 
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CORD_ID : WORD, 
STATUS; 
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86 

87 5 dO 

4 : BEGIN 

90 5 ' If RMS finds that the current record has been deleted within a 
91 5 ' Recovery Unit, then it subjects this record to further processing 
4 5 ! before deciding whether to return this record as the non-deleted 
a7 ; primary data record, or to continue with the search. 

b) 5 IF .REC_ADDRCIRC$V_RU_DELETE) 

38 5 THEN 

9 BEGIN 

98 

99 LOCAL 

00 RE 


POOAAXSO 


ooo 
Wn 


RECORD_ID = .REC_ADDRCIRC$W_ID); 


RS ea eee eae oe ea eS 


N 
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Sz 


If RMS finds that oreavery pats in which this record was 
locked is still active or the file has nor been opened for 
write access, then RMS can not delete this record. If another 
stream has the cucront record locked, RMS returns the record 
as the non-deleted primary data record, and lets a higher 
level routine decide what to do with it. However, if it is 
the current stream that has the record locked, or if the 
current stream is able to lock the record but does not have 
write access to the file, then RMS considers the current 
record to be deleted, and positions to the next record in 
order to continue the search. 


F NOT (STATUS = RMSRU_RECLAIM()) 
IF .STATUS<0,16> EQLU RMSERR(RLK) 
EXITLOOP 
RMSGETNEXT_REC() 


oO eI SS SOOO 


oO 
RAR OOS IOAR IO Ooo MAR MOO DSO OUI Ooo 
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If RMS is able to reclaim only some of the space occupied 
by the current primary data record it proceeds to 
positicn to the next record; otherwise, it is already 
positioned there. 


SE 

IF .RECORD_ID EQLU .REC_ADDRCIRC$W_IDJ 
RMSGETNEXT_REC(); 
J 
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END 
! If the current record is marked deleted, then continue the search 
rer, © nenndeneted primary data record with the next record in the 
! bucket. 
' 


ELSE 


eee 
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SBDOOOCOC 0000000000000 000000 00 0000: 


RMSGETNEXT_REC(); 


The previous records RMS has looked at were all deleted. If the 
record RMS has positioned to matches the key in keybuffer 2 


WAAL IAI AIS PINIPYPIPOPNPPOPOPUNPINIPYUNINYNPTL? 


' 
i 
! according to the search characteristics then continue with the 
' search to see if it too is marked deleted, or whether it maybe 
returned as the non-deleted primary data record. 
R 


SE TURN _OM_ERROR (RMSCSEARCH_TREE()); 
RMS has found a record to return as the non-deleted primary data 
record. If this record was updated within a Recovery Unit, then 
re-format the record provided the Recovery Unit has completed and the 
stream has write access to the file. 
f REC ADORE IRCSY_AU_UPDATE) 


- IFABCIFBSV_WRTACC) 
AND 
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-EXTRN RMSGETNEXT-REC, RMSRLS 
-EXTRN RMSRU_RECLAIM, RMSSEARCH, SIDR 


.PSECT RMSRMS3,NOWRT, GBL, PIC,2 
54 DD 00000 RMSPOS_KEY:: 


3 $} 8 $ . NOT .REC_ADDRCIRC$V_RU_DELETEJ ; 
; °? 4 § RMSRU_RECLAIM(); : 
s 269 0328 ' RMS has found a record to return. Extract the record's ID and the ; 
; 266 0329 ' VBN of the bucket it is in for use in updating the NRP, and then ; 
; a4 03 » return success. : 
3; 29 0 ¢ {RAB IRBSW_ al 1D] = IRC$_ID(REC_ADDR) . 
: 270 03 IRABLIRB$L-RFA-VBNJ = .BBCOCKL.IRABLIR TRBSL_ CURBDB], BDBSL_VBNI; : 
; sf 0335 3 yah N RMSSUC CTS : 
: 218 O36 ; ' RMS is t ition t deleted dat db l 
$ s to position to a non-deleted primary data recor an alternate : 
: 575 esse & =| bev value.” ger: “ 
; 2m 0339 ¢ i : 
: 277 0340 BEGIN | : 
; 278 0341 3 : 
; 279 O34¢ 3 LOCAL ; 
: 280 0343 3 STATUS; : 
s 281 0344 : | 3 
; 282 0345 ' Search all the SIDR arrays whose keys match the hey in ,kevtut ter 2 : 
> 283 0346 3 ! eseeresns to the characteristics of the search until either a non-deleted : 
: 284 0347 3 ! primary data record is found, or all SIDRs with appropriate keys are > 
3; ged 0348 3 exhausted. ; 
; 286 0349 3 ; 
; 287 0350 3 étatus = RMSSEARCH_SIDR(); ‘ 
: 288 0351 3 ; 
: 289 O26 4 IF .STATUS<O, 16> EQL RMSERR(RNF) : 
: 290 0353 3 3 
; 291 0354 4 BEGIN ; 
: 292 0355 4 ; 
; 293 0356 4 GLOBAL REGISTER $ 
> 29% 0357 4 R_BDB_STR; : 
a: 295 0358 4 3 
; 296 0359 4 IF .IRABCIRB$L_CURBDB) NEQ 0 3 
: 297 03460 4 HEN : 
; 298 0361 4 RELEASE (IRABCIRB$L_CURBDB)); : 
: $30 S44 3 END; F 
; 300 0363 3 : 
s 301 0364 3 RETURN .STATUS ; 
3; Soe 0365 3 : 
» 305 0366 2 END; 3 
: 304 0367 2 3 
s 305 0368 1 END; : 

-TITLE RM3POSKEY é 

IDENT \VO4~O00\ : 

-EXTRN RMSCSEARCH_TREE : 
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; 308 tie 1 
; 309 0372 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
RMSRMS3 165 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


; Size:. 165 code + 0 data bytes 
; Run Time: 706. 

; Elapsed Time: 00:20.1 

3; Lines/CPU Min: 3617 

3; Lexemes/CPU-Min: 14508 

3 a Used: 90 pages 

; Compilation Complete 


Fe a ek ee ee Berea SYERGLG soceoene Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28:CRMS.OBJIRMS.L32;1 3109 42 1 154 00:00.4 

: COMMAND QUALIFIERS 

2 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:RM3POSKEY/OBJ=OBJ$:RM3POSKEY MSRC$:RM3POSKEY/UPDATE=(ENHS$:RMSPOSKEY) 
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